﻿Public Class frmBorrarUsuario

    Private Sub btnBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBorrar.Click
        If txtcontraseña.Text = "" Then
            MessageBox.Show("Introduce una contraseña")
            Exit Sub
        End If
        MessageBox.Show(MiJuego.BorrarUsuario(ListaDeFrases.SelectedIndex, txtcontraseña.Text))
        ListaDeFrases.DataSource = MiJuego.LeerUsuarios
        ListaDeFrases.DisplayMember = "NombreUsuario"
        btnBorrar.Focus()
        txtcontraseña.Text = ""
        If MiJuego.LeerUsuarios.Count = 0 Then
            btnBorrar.Enabled = False
            MessageBox.Show("No quedan usuarios")
        End If
    End Sub

    Private Sub frmBorrarPalabra_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If MiJuego.LeerUsuarios.Count > 0 Then
            btnBorrar.Enabled = True
        End If
        txtcontraseña.Focus()
        ListaDeFrases.DataSource = MiJuego.LeerUsuarios
        ListaDeFrases.DisplayMember = "NombreUsuario"
        btnBorrar.Enabled = False
    End Sub

    Private Sub btnVolver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolver.Click
        Me.Close()
    End Sub

    Private Sub txtcontraseña_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcontraseña.KeyPress
        If txtcontraseña.Text = Nothing Then
            btnBorrar.Enabled = False
        Else
            btnBorrar.Enabled = True
        End If
    End Sub

End Class